home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0635.ZIP / BEEP.INC < prev    next >
Text File  |  1987-07-24  |  159b  |  8 lines
  1. Procedure Beep(Tone,Time:Integer);
  2. {** Rings a bell at Tone frequency for an interval of Time **}
  3. Begin
  4. Sound(Tone);
  5. Delay(Time);
  6. Nosound;
  7. End; {Beep}
  8.